start:
  SCREEN 1,640,250,3,2
  WINDOW 1,"Intelligenztest by JK & TL",,6,1
  PALETTE 4,1,0.13,0.93
  PALETTE 5,0.53,0.8,0
  PALETTE 6,0.8,0.6,0.53
  COLOR 3,2:LOCATE 6,34
  PRINT "IQ-Test":LOCATE 8,36
  PRINT "by":LOCATE 10,28
  PRINT "Jörg Karisch (Eagle)":LOCATE 12,28
  PRINT "with some ideas from":LOCATE 14,28
  PRINT "T(ohne h)orsten Lang":LOCATE 16,23
  PRINT "for the new PublicDomain-Reihe":LOCATE 18,29
  PRINT "date:27-29.08.1988":LOCATE 22,55
  PRINT "Jörg Karisch":LOCATE 24,55
  PRINT "Reutersbrunnenstr.47":LOCATE 26,55
  PRINT "8500 Nürnberg 80":COLOR 1,2:LOCATE 22,36
  PRINT "(c) Copyright by : "
  FOR i=1 TO 55
    FOR j=0 TO 6
      COLOR j,2:LOCATE 10,41:PRINT "(Eagle)"
      LOCATE 14,29:PRINT "(ohne h)"
    NEXT j
  NEXT i
  CLS    
weiter:
  x=0:y=0:t=0:q=0
  COLOR 3,2:LOCATE 2,5
  PRINT "Willkommen beim Intelligenztest":FOR i=1 TO 3000:NEXT i
  COLOR 1,2:LOCATE 4,5:PRINT "Der Computer stellt Ihnen nun nacheinander einige Fragen."
  LOCATE 6,5:PRINT "Darauf müssen Sie diese in dem angegebenen Bereich"
  LOCATE 8,5:PRINT "möglichst kurz und genau beantworten.Sie erhalten pro Frage"
  LOCATE 10,5:PRINT "40 Sekunden Zeit,die (richtige ?) Antwort einzugeben."
  LOCATE 12,5:PRINT "Zum Schluß des 18-Fragen-Tests zeigt Ihnen der Computer die richtigen"
  LOCATE 14,5:PRINT "Lösungen und wie Ihre Bewertung ausfällt."
  FOR i=1 TO 100
    FOR j=0 TO 6
      COLOR j,2:LOCATE 18,10:PRINT "V I E L   S P A S S  ! !"
      LOCATE 22,5:PRINT "(wenn gelesen,bitte Tastendruck !)"
      GOSUB warte
    NEXT j
  NEXT i
Haupt:                   
  ON TIMER(40) GOSUB Zeitum
  IF t=0 GOTO Haupt1  
  IF z$=a$ OR z$=b$ OR z$=c$ THEN x=x+1:GOTO Haupt1
  y=y+1
Haupt1:
  t=t+1
  IF t=2 GOTO frag2
  IF t=3 GOTO frag3
  IF t=4 GOTO frag4
  IF t=5 GOTO frag5
  IF t=6 GOTO frag6
  IF t=7 GOTO frag7
  IF t=8 GOTO frag8
  IF t=9 GOTO frag9
  IF t=10 GOTO frag10
  IF t=11 GOTO frag11
  IF t=12 GOTO frag12
  IF t=13 GOTO frag13
  IF t=14 GOTO frag14
  IF t=15 GOTO frag15
  IF t=16 GOTO frag16
  IF t=17 GOTO frag17
  IF t=18 GOTO frag18
  IF t=19 GOTO Haupt2
  GOTO frag1   
Haupt2:
  CLS
  COLOR 3,2:LOCATE 5,5:PRINT "E N D E  des Frageteils"
  COLOR 1,2:LOCATE 7,5:PRINT "Falls Sie nun die Auflösungen der Fragen wünschen, geben Sie ":LOCATE 9,5
  PRINT "nachfolgend <ja> ein .":LOCATE 11,5
  PRINT "Wenn Sie Ihre Auswertung gleich wollen, geben Sie <nein> ein."
  COLOR 4,2:LOCATE 14,5:PRINT "Eingabe :"
  COLOR 1,2:LOCATE 14,15:INPUT g$
  t=0:p=x:n=y
  IF g$="ja" GOTO aufloes
  IF g$="nein" GOTO auswertung
  IF g$<>"ja"OR g$<>"nein" GOTO Haupt2  
frag1:
  t=1:GOSUB frage
  PRINT "Wenn Sie abends um 20 Uhr zu Bett gehen und den Wecker so":LOCATE 7,4
  PRINT "einstellen, daß Sie morgens um 9 Uhr aufstehen, wieviele ":LOCATE 9,4
  PRINT "Stunden können Sie dann bis zum Klingeln schlafen ?":LOCATE 11,4
  PRINT "(Eingabe : <x Std.> )"
  IF q=1 THEN RETURN 
  GOTO antw   
frag2:
  GOSUB frage
  PRINT "Gibt es in England den 17.Juni ?":LOCATE 7,4
  PRINT "(Eingabe : <ja> / <nein> )"
  IF q=1 THEN RETURN
  GOTO antw
frag3:
  GOSUB frage
  PRINT "Wieviele Geburtstage hat ein 60-jähriger Mensch ?":LOCATE 7,4
  PRINT "(Eingabe : <eine Zahl> )"
  IF q=1 THEN RETURN
  GOTO antw
frag4:
  GOSUB frage
  PRINT "Einige Monate haben 30 Tage, andere 31 Tage.":LOCATE 7,4
  PRINT "Wieviele Monate haben 28 Tage ?":LOCATE 9,4
  PRINT "(Eingabe : <kurzes Wort> )"
  IF q=1 THEN RETURN
  GOTO antw 
frag5:
  GOSUB frage
  PRINT "Der Arzt gibt Ihnen 3 Tabletten und sagt : Nehmen Sie jede halbe":LOCATE 7,4
  PRINT "Stunde eine Tablette. Wielange reichen die Tabletten ?":LOCATE 9,4
  PRINT "(Eingabe : <x Std.> )"
  IF q=1 THEN RETURN
  GOTO antw 
frag6:
  GOSUB frage
  PRINT "Sie haben nur ein Streichholz und betreten einen Raum, in dem sich":LOCATE 7,4
  PRINT "eine Karbidlampe,eine Öllampe und ein Kohleofen befinden.":LOCATE 9,4
  PRINT "Was würden sie zuerst anzünden ?":LOCATE 11,4
  PRINT "(Eingabe : <Gegenstand ohne Artikel> )"
  IF q=1 THEN RETURN
  GOTO antw  
frag7:
  GOSUB frage
  PRINT "Ein Mann hat ein 4-eckiges, rechtwinkliges Haus. Jede Seite zeigt":LOCATE 7,4
  PRINT "nach Süden. Welche Farbe hat ein Bär, der draußen vorbei kommt ?":LOCATE 9,4
  PRINT "(Eingabe : <Farbe> )"
  IF q=1 THEN RETURN
  GOTO antw 
frag8:
  GOSUB frage
  PRINT "Teilen Sie 30 durch 1/2 und zählen Sie 10 dazu.":LOCATE 7,4
  PRINT "Wieviel ergibt das ?":LOCATE 9,4
  PRINT "(Eingabe : <eine Zahl> )"
  IF q=1 THEN RETURN
  GOTO antw 
frag9:
  GOSUB frage
  PRINT "Ein Bauer hat 17 Schafe.Alle sterben bis auf neun.":LOCATE 7,4
  PRINT "Wieviele bleiben übrig ?":LOCATE 9,4
  PRINT "(Eingabe : <eine Zahl> )"
  IF q=1 THEN RETURN
  GOTO antw    
frag10:
  GOSUB frage
  PRINT "Ist es in der UdSSR erlaubt, daß ein Mann die Schwester seiner":LOCATE 7,4
  PRINT "Witwe heiratet ?":LOCATE 9,4
  PRINT "(Eingabe : <ja> / <nein> )"
  IF q=1 THEN RETURN
  GOTO antw
frag11:
  GOSUB frage
  PRINT "Was war am 6.12.1945 ?":LOCATE 7,4
  PRINT "(Eingabe : <ein Wort> )"
  IF q=1 THEN RETURN
  GOTO antw
frag12:
  GOSUB frage
  PRINT "Wieviele 9er sind in den Zahlen 1 - 100 enthalten ?":LOCATE 7,4
  PRINT "(Eingabe : <eine Zahl> )"      
  IF q=1 THEN RETURN
  GOTO antw
frag13:
  GOSUB frage
  PRINT "Wenn ein Nachtwächter am Tage stirbt, bekommt er dann eine Rente ?":LOCATE 7,4
  PRINT "(Eingabe : <ja> / <nein> )"
  IF q=1 THEN RETURN
  GOTO antw
frag14:
  GOSUB frage
  PRINT "Kann ein Mann der westlich von New York, westlich vom":LOCATE 7,4
  PRINT "Mississipi begraben sein ?":LOCATE 9,4
  PRINT "(Eingabe : <ja> / <nein> )"
  IF q=1 THEN RETURN
  GOTO antw
frag15:
  GOSUB frage
  PRINT "Wer kann sagen : Du bist mein Sohn, aber ich nicht dein Vater ?":LOCATE 7,4
  PRINT "(Eingabe : <ein Wort ohne Artikel> )"
  IF q=1 THEN RETURN
  GOTO antw
frag16:
  GOSUB frage
  PRINT "Ein Flugzeug stürzt auf der deutsch-italienischen Grenze ab.":LOCATE 7,4
  PRINT "Wer muß das Wrack beseitigen ?":LOCATE 9,4
  PRINT "(Eingabe : <ein Wort> )"
  IF q=1 THEN RETURN
  GOTO antw
frag17:
  GOSUB frage
  PRINT "Ein Ochse steht mit den Vorderbeinen in der DDR,mit den ":LOCATE 7,4
  PRINT "Hinterbeinen in der BRD. Wer bekommt die Milch ?":LOCATE 9,4
  PRINT "(Eingabe : <ein Wort> )"
  IF q=1 THEN RETURN
  GOTO antw
frag18:
  GOSUB frage
  PRINT "Berlin schreibt man am Anfang mit <B> und hinten mit <h> .":LOCATE 7,4
  PRINT "Stimmt das ?":LOCATE 9,4
  PRINT "(Eingabe : <ja> / <nein> )"
  IF q=1 THEN RETURN
  GOTO antw        
frage:
  CLS:COLOR 3,2:LOCATE 3,4
  PRINT t;". Frage:":COLOR 1,2:LOCATE 5,4
  RETURN  
warte:  
  d$=INKEY$
  IF d$="" THEN RETURN
  GOTO Haupt 
antw:
  TIMER ON
  COLOR 4,2:LOCATE 17,4
  PRINT "Antwort :":COLOR 1,2:LOCATE 19,4
  PRINT "(Falls keine zur Hand ,<RETURN> drücken)":LOCATE 17,14
  INPUT z$
  TIMER OFF
  IF t=1 GOTO auswert1 
  IF t=2 GOTO auswert2
  IF t=3 GOTO auswert3
  IF t=4 GOTO auswert4
  IF t=5 GOTO auswert5
  IF t=6 GOTO auswert6
  IF t=7 GOTO auswert7
  IF t=8 GOTO auswert8
  IF t=9 GOTO auswert9
  IF t=10 GOTO auswert10
  IF t=11 GOTO auswert11
  IF t=12 GOTO auswert12
  IF t=13 GOTO auswert13
  IF t=14 GOTO auswert14
  IF t=15 GOTO auswert15
  IF t=16 GOTO auswert16
  IF t=17 GOTO auswert17
  IF t=18 GOTO auswert18
auswert1:
  a$="1 Std.":b$=a$:c$=a$
  GOTO Haupt
auswert2:
  a$="ja":b$=a$:c$=a$
  GOTO Haupt  
auswert3:
  a$="1":b$=a$:c$=a$
  GOTO Haupt  
auswert4:
  a$="alle":b$="jeder":c$="zwölf"
  GOTO Haupt  
auswert5:
  a$="1 Std.":b$=a$:c$=a$
  GOTO Haupt  
auswert6:
  a$="Streichholz":b$=a$:c$=a$
  GOTO Haupt  
auswert7:
  a$="weiß":b$=a$:c$=a$
  GOTO Haupt
auswert8:
  a$="70":b$=a$:c$=a$
  GOTO Haupt
auswert9:
  a$="9":b$=a$:c$=a$
  GOTO Haupt
auswert10:
  a$="nein":b$=a$:c$=a$
  GOTO Haupt
auswert11:
  a$="Nikolaus":b$=a$:c$=a$
  GOTO Haupt
auswert12:
  a$="19":b$=a$:c$=a$
  GOTO Haupt
auswert13:
  a$="nein":b$=a$:c$=a$
  GOTO Haupt
auswert14:
  a$="nein":b$=a$:c$=a$
  GOTO Haupt
auswert15:
  a$="Mutter":b$=a$:c$=a$
  GOTO Haupt
auswert16:
  a$="niemand":b$="keiner":c$=a$
  GOTO Haupt
auswert17:
  a$="niemand":b$="keiner":c$=a$
  GOTO Haupt
auswert18:
  a$="ja":b$=a$:c$=a$
  GOTO Haupt                         
Zeitum:
  CLS
  FOR i=1 TO 20
    FOR j=0 TO 6
      COLOR j,2:LOCATE 7,10:PRINT "Ihre Zeit ist um !!!"
      LOCATE 9,10:PRINT "Bitte warten !"
    NEXT j
  NEXT i
  y=y+1
  RETURN
schl:
  FOR i= 1 TO 100
    FOR j=0 TO 6
      COLOR j,2:LOCATE 21,10:PRINT "(wenn gelesen,bitte <Leertaste> drücken !)"
      d$=INKEY$:IF d$=" " THEN RETURN
    NEXT j
  NEXT i
  RETURN     
aufloes:
  CLS:q=1:GOSUB frag1:GOSUB richt1:GOSUB schl
  CLS:GOSUB frag2:GOSUB richt2:GOSUB schl
  CLS:GOSUB frag3:GOSUB richt3:GOSUB schl
  CLS:GOSUB frag4:GOSUB richt4:GOSUB schl
  CLS:GOSUB frag5:GOSUB richt5:GOSUB schl
  CLS:GOSUB frag6:GOSUB richt6:GOSUB schl
  CLS:GOSUB frag7:GOSUB richt7:GOSUB schl
  CLS:GOSUB frag8:GOSUB richt8:GOSUB schl
  CLS:GOSUB frag9:GOSUB richt9:GOSUB schl
  CLS:GOSUB frag10:GOSUB richt10:GOSUB schl
  CLS:GOSUB frag11:GOSUB richt11:GOSUB schl
  CLS:GOSUB frag12:GOSUB richt12:GOSUB schl
  CLS:GOSUB frag13:GOSUB richt13:GOSUB schl
  CLS:GOSUB frag14:GOSUB richt14:GOSUB schl
  CLS:GOSUB frag15:GOSUB richt15:GOSUB schl
  CLS:GOSUB frag16:GOSUB richt16:GOSUB schl
  CLS:GOSUB frag17:GOSUB richt17:GOSUB schl
  CLS:GOSUB frag18:GOSUB richt18:GOSUB schl:CLS
  FOR i=1 TO 12
    FOR j=0 TO 6
      COLOR j,2:LOCATE 10,10:PRINT "E N D E der Auflösungen"
      LOCATE 13,10:PRINT "Nun kommt die Bewertung (grins)"
    NEXT j
  NEXT i
  GOTO auswertung
rian:
  t=t+1:COLOR 4,2:LOCATE 13,4:PRINT "Die richtige Antwort wäre gewesen :"
  COLOR 1,2:LOCATE 15,4:RETURN 
richt1:
  GOSUB rian  
  PRINT " 1 Stunde (wenn Sie einen normalen Wecker mit 12-Stunden-":LOCATE 17,4
  PRINT "Anzeige haben)":RETURN
richt2:
  GOSUB rian
  PRINT " ja ":RETURN
richt3:
  GOSUB rian
  PRINT "Er hat einen Geburtstag.":RETURN
richt4:
  GOSUB rian
  PRINT "Alle Monate haben 28 Tage.":RETURN
richt5:
  GOSUB rian
  PRINT " 1 Stunde (jetzt eine,1/2 Stunde später eine,1/2 Stunde später":LOCATE 17,4
  PRINT "noch eine Tablette )":RETURN
richt6:
  GOSUB rian
  PRINT " Streichholz ":RETURN
richt7:
  GOSUB rian
  PRINT " weiß (denn es ist ein Eisbär,weil das Haus am Nordpol steht)":RETURN
richt8:
  GOSUB rian
  PRINT " 70 (30 geteilt durch 1/2 ist 60,plus 10 ist 70)":RETURN
richt9:
  GOSUB rian
  PRINT " 9 ":RETURN
richt10:
  GOSUB rian
  PRINT " nein (denn der Mann ist bereits tot)":RETURN
richt11:
  GOSUB rian
  PRINT " Nikolaus":RETURN
richt12:
  GOSUB rian
  PRINT " 19 ":RETURN
richt13:
  GOSUB rian
  PRINT " nein (denn ein Toter bekommt keine Rente)":RETURN
richt14:
  GOSUB rian
  PRINT " nein (denn er lebt ja noch)":RETURN
richt15:
  GOSUB rian
  PRINT " Mutter ":RETURN
richt16:
  GOSUB rian
  PRINT " keiner (denn diese Grenze gibt es nicht)":RETURN
richt17:
  GOSUB rian
  PRINT " keiner (denn ein Ochse gibt keine Milch)":RETURN
richt18:
  GOSUB rian
  PRINT " ja ( <Berlin> schreibt man am Anfang mit <B> und ":LOCATE 17,4
  PRINT " <hinten> schreibt man mit <h> !)":RETURN                                 
auswertung:                 
  CLS:u=0:COLOR 3,2:LOCATE 2,4:PRINT " A U S W E R T U N G : ":COLOR 1,2
lo1:  
  LOCATE 4,4 :PRINT "    0    Fehler  : Hochintelligent":COLOR 1,2
lo2:  
  LOCATE 6,4 :PRINT "  1 -  2 Fehler  : Intelligent":COLOR 1,2
lo3:  
  LOCATE 8,4 :PRINT "  3 -  4 Fehler  : Durchschnittlich Begabt":COLOR 1,2
lo4:  
  LOCATE 10,4:PRINT "  5 -  6 Fehler  : Leicht bekloppt":COLOR 1,2
lo5:  
  LOCATE 12,4:PRINT "  7 -  8 Fehler  : Ein wenig doof":COLOR 1,2
lo6:  
  LOCATE 14,4:PRINT "  9 - 10 Fehler  : Idiot":COLOR 1,2 
lo7:  
  LOCATE 16,4:PRINT " 11 - 12 Fehler  : Vollidiot":COLOR 1,2
lo8:  
  LOCATE 18,4:PRINT " 13 - 15 Fehler  : Anstaltsverdächtig":COLOR 1,2
lo9:  
  LOCATE 20,4:PRINT " 16 - 18 Fehler  : Nicht lebensfähig":COLOR 1,2
  u=u+1:IF u=80 GOTO Fertig
  COLOR 4,2:LOCATE 23,4
  PRINT "Sie haben";p;" richtige und";n;" falsche Antworten gegeben !"
  LOCATE 25,4:PRINT "Bitte warten !"
  COLOR 3,2
  IF n=0 GOTO lo1
  IF n=1 OR n=2 GOTO lo2
  IF n=3 OR n=4 GOTO lo3
  IF n=5 OR n=6 GOTO lo4
  IF n=7 OR n=8 GOTO lo5
  IF n=9 OR n=10 GOTO lo6
  IF n=11 OR n=12 GOTO lo7
  IF n=13 OR n=14 OR n=15 GOTO lo8
  IF n=16 OR n=17 OR n=18 GOTO lo9
Fertig:
  CLS:LOCATE 5,5
  PRINT "Wir hoffen, dieser nicht ganz ernst zu nehmende Intelligenztest":LOCATE 7,5
  PRINT "hat Ihnen wie uns viel Spaß bereitet."
  FOR i=1 TO 25  
    FOR j=0 TO 6
      COLOR j,2:LOCATE 10,8:PRINT " Viele Grüße an :":COLOR 3,2
                LOCATE 13,5:PRINT "Thomas S.,Thomas G.,Reiner K.,"
                LOCATE 15,5:PRINT "The Rolling Fighters Nürnberg,"
                LOCATE 17,5:PRINT "und alle AMIGA-User in Bayern"
                LOCATE 19,5:PRINT "und im Ausland(z.B.Nord-Deutschland).":COLOR j,2
                LOCATE 22,8:PRINT "Jörg Karisch (Eagle) / T(ohne h)orsten Lang":COLOR 1,2
                LOCATE 24,5:PRINT "(kein Tastendruck !!)"
    NEXT j
  NEXT i
  FOR i=27 TO 1 STEP-1
    FOR j=1 TO 500:NEXT j
    LOCATE i,1:PRINT"                                                                     " 
  NEXT i
  FOR i=1 TO 1500:NEXT i
  WINDOW CLOSE 1
  SCREEN CLOSE 1
  SYSTEM